home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
LOGIC Apps
/
Logic-APPLE_II_APPS.iso
/
mac
/
LOGIC Apple II 5.25" Library - ProDOS 8
/
P8S007A.dsk
/
KEYBOARD.TEST.bas
< prev
next >
Wrap
BASIC Source File
|
2012-02-16
|
741b
|
17 lines
10 HOME
20 VTAB 4
30 PRINT TAB( 5);"DO YOU HAVE:"
40 PRINT : PRINT TAB( 5);"1. Apple //GS Keyboard"
45 PRINT : PRINT TAB( 5);"2. Apple //E Pt"
50 PRINT : PRINT TAB( 5);"3. Apple //E upgraded to"
60 PRINT TAB( 8);"a //GS w/o the new keyboard"
65 PRINT : PRINT TAB( 8);"OR a //C or a //E Enhanced"
67 PRINT : PRINT TAB( 5);"4. QUIT"
70 VTAB 18: PRINT TAB( 10);"ENTER CHOICE: 1"
80 VTAB 18: HTAB 24: GET A$: PRINT A$
90 IF A$ = "1" THEN PRINT CHR$(4);"RUN KB.NEW.GS"
95 IF A$ = "2" THEN PRINT CHR$(4);"RUN KB.II.PT"
100 IF A$ = "3" THEN PRINT CHR$(4);"RUN KB.UPGRADE.GS"
110 IF A$ = CHR$(13) THEN PRINT CHR$(4);"RUN KB.NEW.GS"
115 IF A$ = "4" THEN PRINT CHR$(4);"RUN HELLO2"
120 PRINT CHR$(7): GOTO 80